home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
pascal29.arc
/
PASCAL.E24
< prev
Wrap
Text File
|
1989-05-23
|
89KB
|
2,631 lines
=
From: Beth Larson
To: Lee Bollard Msg #137, 17-May-89 09:06am
Subject: pascal
Hello! if you find anyone who can help you will you please pass the
information on to me i am interested in also learning the language
then going into c langquage
---
* Origin: Dynasoft,PO.Box 915,Davis,Ca 95617,916-7538788 HST (Opus 1:203/955)
*** Part of a conversation.
From: Chris Beliveau
To: Betsey Doane Msg #138, 18-May-89 02:36pm
Subject: Re: Pascal
Ok..Thanks..
--- QuickBBS v2.03
* Origin: The BlackMarket - Methuen, MA (508)682-0133 (1:324/115)
*** Part of a conversation.
From: Larry Sanders
To: Mark Farnan Msg #139, 17-May-89 12:18pm
Subject: Re: No Readln
GS-> Anyone noticed that when you define a window,
GS-> sometimes gotoxy doesn't
GS-> >work quite correctly? I haven't pinpointed the problem,
MF-> As a matter of fact, I have been having this Problem, Was
MF-> using windows for the Log output in my BBS program, but
MF-> GotoXY kept going to the wrong place and making a mess of
MF-> things. Never did findd out Why.
I believe I saw someone tell Mr. Sherman that the problem (not really a
problem) is that when you define a window, the window itself is considered
the whole screen, which puts the (1,1) in GOTOXY at the top, left position
INSIDE the window rather the the 'home' position of the actual screen.
--- QuickBBS v2.03
* Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403)
*** This is a reply to #33.
From: Larry Sanders
To: Steve Brennan Msg #140, 17-May-89 12:32pm
Subject: Re: Which Turbo Pascal book?
--- QuickBBS v2.03
* Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403)
*** Part of a conversation.
From: Larry Sanders
To: Steve Brennan Msg #141, 17-May-89 12:38pm
Subject: Re: Which Turbo Pascal book?
(consider that blank message an 'oops'...)
-> IF you go to any college or university, you could probably
-> find a good book to learn from. I used 'Oh! Pascal!' by
-> Doug Cooper and Michael Clancy. It's a pretty good
-> beginning level book. From there you can go out and pick
-> up another book that goes into more depth. Just so you
-> know, this book teaches standard pascal, but there is a
-> suplement called 'Oh! Turbo Pascal' which is an addition to
-> the book. It's not too bad for beginning with the
-> language. Good Luck!
If you are talking about self-teaching, I've discovered that disecting the
source code (when available) of the UNITS from the various Toolboxes I use
is an execellent 'source' of knowledge. Look at a command, see WHAT it
does, then find the procedure in the TBox source and see HOW it does it.
I've learned several things by that method.
--- QuickBBS v2.03
* Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403)
*** Part of a conversation.
From: Tom Moeller
To: Larry Sanders Msg #142, 17-May-89 05:01pm
Subject: Pointers
>
>
> -> In this case the '^' says to use the value stored at
> this
> -> location. Present is set up as a pointer to some record,
> -> Present^.Name says to use the value pointed to by
> -> Present.Name.
>
>
> Let me see if I have this straight.....
>
> The '^' indicates a pointer, and the position of it indicates
> direct or
> indirect addressing (to use assembly terms).
>
> Is that correct?
The way I understand the example, Present is a pointer to a record type (a
do-it-yourself group of variables under one name). Present^ actually refers to
the variable of that record type, and Present^.Name refers to one field in the
record.
Whew.
--- TPBoard 5.2 (USA)
* Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54)
*** This is a reply to #85.
From: Tom Moeller
To: Jim Forbes Msg #143, 17-May-89 05:05pm
Subject: Zenith Z-100 & Delay()
> Thanks, that will help with my replacement for the CRT
> unit for use
> with the IBM's. However, I am still looking for a replacement
> for the
> CRT.Delay procedure for use with a Zenith Z-100.
>
> NOTE: The Z-100 is NOT IBM compatible, but it does use
> MS-DOS.
>
If you're reaaaaally really really interested, your Z-100 DOS manuals (volume
I and II, they gave me) have a source listing for much of ZDOS.. and one of
the DOS diskettes I got had a complete assemblable source for dos..
modify/reassemble it to your heart's content, I guess. Something in all that
might help out.. But it'd be a lot of digging..
tom
--- TPBoard 5.2 (USA)
* Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54)
*** This is a reply to #44.
From: Joe Fischer
To: Mike Simpson Msg #144, 17-May-89 05:45pm
Subject: Re: Turbo ver 5.0
Hi Mike:
Do you mean ClrScr doesn't work in TP any more? I use 3.0.
Of course sometimes, I like to use
For loop:= 1 to 25 do
Writeln;
But that's kinda slow.
And then there's lotsa other ways.
If you want any info that I can help with, voice 512 832-9310.
Do you play chess on the Chess Board?
Joe Fischer
--- QuickBBS v2.03
* Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15)
*** This is a reply to #81.
From: Joe Fischer
To: Larry Sanders Msg #145, 17-May-89 05:48pm
Subject: Re: Appending a text file from beginning
Hi: There is one thing you don't want to ever do, MESS WITH THE FAT!
That's what device service routines are for. Let the Disk
Operating System (DOS) do it for you.
Joe
--- QuickBBS v2.03
* Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15)
*** This is a reply to #79.
From: Wayne Boyd
To: Jens Stobernack Msg #146, 16-May-89 11:17am
Subject: Fossil driver revisited
Jens, in the function you gave me before:
> function carrier(comport:integer):boolean;
> var
> regs:registers;
> begin
> regs.dx := comport: {note is comport is Othen the fossil driver by pass
> this function} ^
> intr($14,regs); |
> if regs.ax >= 136 then |
> carrier := true {carrier detected} |
> else |
> carrier := false |
> end; |
|
1) What do you mean by this comment? ---------+
2) Also, is com1 0 and com2 1??? If I pass a "1" to this function, which
comport is being monitored?
3) I wrote a little routine to test this function:
uses crt,com_port; {your routines are in com_port.tpu}
var
ch : char;
begin
gotoxy(9,10);
textcolor(15);
write('Press ESC to abort');
repeat
textcolor(black);
backgroundcolor(white);
gotoxy(10,10);
if carrier(1) then
write(' Carrier is present on comport. ')
else
write(' Carrier is dropped on comport. ');
if keypressed then
ch := readkey
until ch := #27
end.
Unfortunately, this always returns a true, and "Carrier is present on
comport" message is always on screen until ESC is pressed. It doesn't seem
to matter what integer I pass to the function CARRIER. (BTW, I'm using
com2).
Any help? Also I was asking if your routine that waits for a carrier from
the comport could easily incorporate a simple for of sysop intervention.
i.e. sysop presses a key from keyboard and it get's acted upon. Any word on
that one? Your messages have been immensely helpful so far.
-Wayne Boyd
--- QuickBBS v2.03
* Origin: Dial-a-Guru BBS (Seattle, Washington) (206)328-7827 (1:343/44)
From: Ross Wentworth
To: Wan W Msg #147, 16-May-89 02:00am
Subject: Re: Editor for Turbo Pascal
> I am quite interested, will you provided the source code
> also.
> Could you sent it to :
Because I used source code provided in Borland's Editor Toolbox as a starting
point I am unable to release the majority of the source code. The portion of
the code that packs the program into expanded or extended memory is currently
proprietary but I'm considering releasing it (given the low number of
registrations for source code I've released in the past I will NOT release it
as shareware). I also use a very small portion of modified code from
TurboPower's Turbo Professiona 5.0 package.
Ross Wentworth
--- FD TosScan .40 (286)
* Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1)
*** This is a reply to #77.
From: Ross Wentworth
To: Matt Farrenkopf Msg #148, 16-May-89 02:04am
Subject: Zmodem (HELP!!)
> My point is, I'm in deep! Can anyone help me with sample
> source that either was written specifically for the IBM's
> standard INT 14H interrupt or for a FOSSIL driver (any
> Fidonet mailer programmers out there? <hint,hint>)?
> PLEEEEEEEEEZ?
Send a message to Joaquim Homrighausen (he's in the nodelist) and ask him
about his Transfer Protocal Engine. It will link right into a Turbo Pascal
program. I'm not sure if he includes the source code, however. The TPE goes
for about $50 last I heard.
Ross Wentworth
--- FD TosScan .40 (286)
* Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1)
*** This is a reply to #57.
From: Ross Wentworth
To: Michelle Wyner Msg #149, 16-May-89 06:27pm
Subject: toolbox
> Does anyone use any of those TP Toolboxes (ie. Games,
> Graphics, Database, etc..) that you can buy extra? Are
> they worth getting?
I have all of the tool boxes from Borland. I've only used the Editor and the
Database toolboxes. The Editor Toolbox is great. The Database toolbox is
blown away by TurboPower's Database toolbox (which supports networks). As for
the others:
Graphics Toolbox - I want my money back. Total garbage. This toolbox
completely ignores the BGI extensions and is in a world all by itself. Don't
bother with it.
Numerical Methods - A mathmatician friend of mine said that (after examining
it) it was a very limited package. I can't verify this as I haven't used it.
Gameworks - If you want source code to some games non-graphic games, great.
If you were hoping to write the next Space Quest, forget it.
Ross Wentworth
--- FD TosScan .41 (286)
* Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1)
*** Part of a conversation.
From: Paul Lahaie
To: David Dahl Msg #150, 15-May-89 06:22pm
Subject: Re: Sound and TP5.0
-> The disk is available from Compute! Mag. The program to
-> give the IBM 3 voices is called VMUSIC. No, I don't think it switches
-> quickly between notes. There is a document that comes with it (Text
-> file) that explains how it works. Something about a push-pull location
-> for the speaker or something like that in memory. The program could
-> be accessed through TPascal with an EXEC to add 3 voice music to
-> your program, but I believe the author of VMUSIC doesn't want it
-> incoroprated into any other work.
I have a similar program called 3VOICE. It gives 3 sounds
simultaneously on the PC. Unfortunately the program is written in BASIC with
calls to a 3VOICE.BIN program. I have also read in a very old issue of Pc
Magazine that the IBM can produce 3 sounds at the same time by calling the
speaker, the paarallel port (if some odd way), and another place (I would have
to read it again to find out what)
. Since all these ports are timed by the timer chip it is able to
send the necessary frequencies to the internal speaker! I don't know if you
can incorporate 3VOICE.BIN in pascal code (I never tried it).
The program is also un-compilable under TurboBASIC v 1.0. Some odd
statement in the code !
-Paul
---
* Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207)
From: Paul Lahaie
To: Nathan Drost Msg #151, 16-May-89 07:07pm
Subject: Re: COMMUNICATION WITH PASCAL
> I was writing a door in tp, and everything was working
> fine except the remote user could not enter anything at
> the prompts. Do i need to use ReadPort(Comport,Ch);?
> (With Yasync). Also, i was writing it with no comm. routines,
> just using CTTY.
>
> -Nate
> --- QuickBBS v2.03
I have a program here called LhDoor (For QuickBBS) and it uses CTTY
COM1 or (preferably) CTTY GATE1. It uses normal ReadLn. Don't include CRT
cause it may cause problems with screen I/O. hope this helps.
-Paul
---
* Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207)
*** There is a reply. See #191.
From: Andy Lester
To: Jesper Wolf Msg #152, 16-May-89 05:26pm
Subject: TP SET bug
> Where this base type is a subrange of some larger type it folows that
> the operation X IN A is defined ONLY for values of X within this
> subrange.
> Thus if A is of type SET OF 1..50 and X is an integer variable with
> value 65 the result of the test X IN A is undefined and may not give
> the value false as one might intuitively expect."
program test;
var
foo : integer;
bar : set of 1..50;
begin
foo:=65;
bar:=[1..50];
if foo in bar
then writeln('passes')
else writeln('fails');
end.
I ran this in Turbo Pascal, and it ran and gave the output of "fails". The
same results come out if the literal values of foo and bar are substituted for
the variables.
Turbo does bunches of range checking of constants at compile time. I'd think
they'd do a bit of checking on set boundaries.
Also, Apple Pascal, if I remember correctly, will produce a run-time error if
this code is executed.
Andy
--- FD 2.00
* Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)
From: Andy Lester
To: Dj Murdoch Msg #153, 16-May-89 05:34pm
Subject: Re: Smashing Integers to Bits
> By the way, do you know of a unit (with source) that'll take a stream
> of bytes, and produce a compressed stream? Most of the packages I've
> seen are for file compression, and have the file handling so deeply
> embedded that I haven't had time to extract it.
Doesn't Rahul Dhesi release source to ZOO? I know that one of the functions
of ZOO 2.01 that I have is to act simply as a filter, for instance:
dir | zoo -x > com1
which would compress the dir listing and then send it out to the modem, if
I've got my DOS command piping and redirecting correct. -x isn't necessarily
the right switch, but that's the idea.
So just get a copy of the (undoubtedly) C code and modify it...
Andy
--- FD 2.00
* Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)
From: Andy Lester
To: Steve Butler Msg #154, 16-May-89 05:35pm
Subject: Re: CTL processing...
> > Of course, that means that your .ctl file must start
> > in the leftmost column, and the previous line must end
> > with a CRLF.
>
> What previous line? <<grin>>
Oh, silly me. You have a one-line config file! :-)
Andy
--- FD 2.00
* Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)
From: Brian Corll
To: David Cressey Msg #155, 17-May-89 06:06pm
Subject: Huffman (cont'd)
No boredom on my part, David !
Write on......
--- ConfMail V3.31
* Origin: Ten B.C. Micro Systems (1:150/501.21)
*** This is a reply to #73.
From: Matthew Taylor
To: Roy Green Msg #156, 17-May-89 11:11am
Subject: Re: *.CHR files
Roy, thank you *very* much for that info. I was nearly at the end of my
rope with this problem. YOUR INFO MADE MY WEEK! Thanks again!
Regards, Matt.
--- QuickBBS v2.03
* Origin: OKY BBS /\ Boulder, CO /\ (303)494-0533 /\ (1:104/113)
*** This is a reply to #43.
From: Jens Stobernack
To: All Msg #157, 16-May-89 10:35pm
Subject: Error Message
Can anyone tell me what to do to fix a:
Error 48: Code segment to large.
Error???
thanks
--- ConfMail V3.31
* Origin: EZ Duzzit BBS Calgary (1:134/20)
*** There is a reply. See #230.
From: Charles Falconer
To: Matthew Franckiewicz Msg #158, 18-May-89 07:31am
Subject: Determining redirection
In a message of <15 May 89 22:51:00>, Matthew Franckiewicz (1:129/84) writes:
>I seem to recall a discussion in the echo not too long ago about how a
>program can determine whether standard input or standard output has been
>redirected. If anyone can remember how to do so, I'd appreciate it. I
Fundamentally, use the ioctl DOS call. Routines to do this are also in
TXTFILES.ARC, on 141/209.
--- msged 1.99S ZTC
* Origin: Chuck makes a point - Hamden CT. (1:141/209.1)
*** This is a reply to #97.
From: Charles Falconer
To: Andy Lester Msg #159, 18-May-89 07:37am
Subject: Re: Query
In a message of <15 May 89 19:31:00>, Andy Lester (1:115/790.2) writes:
>You think TP is a bear, try Apple Pascal some time. We're talking 64K
>data space, but the stack grows on top of the code space, which is mostly
>eaten up by (guess what) the huge amount of code it generates.
That was the early version of SCUD. Its basic purpose was to flush unused
code, but this meant many reloads of subroutines. You have to keep its
structure in mind when organizing the program (double blech). Later versions
did somewhat better by making a configurable code space between heap and
stack, and moving it when needed. Faulty in that it required both the calling
and called segments to remain in memory.
Somewhere areund I have the sources to the early SCUD, on 8 inch floppies.
Can't read them without a drive for now tho.
--- msged 1.99S ZTC
* Origin: Chuck makes a point - Hamden CT. (1:141/209.1)
*** This is a reply to #102.
From: Charles Falconer
To: David Cressey Msg #160, 18-May-89 07:44am
Subject: Re: PASCAL?????????
In a message of <17 May 89 14:31:23>, David Cressey (1:321/150) writes:
>
>> dialect, e.g Get and Put in standard Pascal are Read and
>> Write in Turbo.
>Beg pardon, but Read and Write are really standard Pascal, as well as Get
>and Put. What is non-standard about TP is the lack of Get and Put, and
>the fact that 'File variables' aren't quite like the standard.
>Who cares? Not me, for sure (about this issue).
>If you use Read, Write, Readln, and Writeln when writing for either TP or
>standard Pascal, you should be able to move to the other really
>easily.
Not so easy. Get and f^ especially allow you to 'look ahead', especially on
the console input. If you are reading an integer, for example, you don't know
its finished until you get a terminating non-numeric character. But the
reading routine doesn't want to use that char, it must be left for the future.
Without get and f^ you can't do this. This is why TP barfs on read(integer)
when supplied with something like '80x'. This results in people writing their
own string buffers and parsers, and other non-reusable code (because it is
tied to a global buffer).
That is why I wrote TXTFILES.arc. It at least gives standard semantics, if
not names.
--- msged 1.99S ZTC
* Origin: Chuck makes a point - Hamden CT. (1:141/209.1)
*** Part of a conversation.
From: Charles Falconer
To: Loyd Craft Msg #161, 18-May-89 10:10am
Subject: Files & freqs
> Thanks for files availability ... HST usage etc. (from private msg)
Don't thank me - thank my boss node.
--- msged 1.99S ZTC
* Origin: Chuck makes a point - Hamden CT. (1:141/209.1)
From: Charles Cremer
To: Douglas Johnson Msg #162, 18-May-89 05:35pm
Subject: Modem Backgammon
To All:
Doug asked me for some advice about modem backgammon in a message of
14-May that I am sure many of you saw. Edited for brevity:
DJ> (1) Just how easy would it be to program in Turbo 5?
DJ> (2) I can't decide whether to use graphics or just ansi characters.
DJ> (3) One thing about the random number generator I've been concerned
DJ> with involves using the computer clock as a seed. It seems to me
DJ> that the generator would use the same seed for both die, and that
DJ> would make it more likely of doubles showing up.
Doug, first off, let me say that I am no expert on graphics, so there
are surely others on the echo more qualified than I to advise you about
that, and hopefully if anyone has something to offer, they will join
right in.
I feel that TP5 would be a good choice for your proposed program. As
you noted, drawing the board and pieces will be the most difficult part.
I don't think you can use ordinary graphics unless you expect your users
to call in using a graphic terminal emulator program. The usual BBS
user's terminal program is limited to ANSI graphics.
If you randomize before each "roll" you get non-random pair results, but
if you randomize only once at program start-up, you get a good random
distribution. I make this statement based on a die-toss test program
trial run observation.
There are some Pascal craps games floating around. (Heh-heh, floating
craps games). You might try to find one of these and look it over.
"""
Charlie ^ ^
J
\_/
---
* Origin: The Antenna Farm - Austin, TX (512-444-1052) (Opus 1:382/40)
From: Robert Kirby
To: Nolan Walker Msg #163, 16-May-89 09:36pm
Subject: Re: thanks...
>>>>>
write a program to print "HELLO". Easy is the most important factor between
basic and pascal. If you decide that pascal is easier, maybe you could tell
me a few reasons, and also tell me what brand of pascal I should purchase.
>>>>>
program print_hello(output);
begin
writeln('HELLO')
end.
I think if programming with PCs, you should try TP 4.0 or 5.0.
---
* Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12)
*** This is a reply to #86.
From: Robert Kirby
To: Larry Sanders Msg #164, 16-May-89 09:48pm
Subject: Re: File handling
>>>
The '^' indicates a pointer, and the position of it indicates direct or
indirect addressing (to use assembly terms).
>>>
Actually I believe, to 'use assembly terms', pointers are in themselves
indirect addressing but keep in mind the factor of dynamic data, so in
assembly you might have:
moval mypredefined_address,Register
addl3 something,(Register),somewhere
incl Register
and in pascal:
procedure Newnode(var p : pointer);
begin
if myusablenode = NIL then
new(p)
else begin
p := myusablenode;
myusablenode := p^.next
end
end;
also consider this was set up like:
type
pointer = ^node;
node = record
data : datainfo;
next : pointer
end;
Note that pascal incorporates the wonderful idea of 'forward addressing' as
you may be familiar with in dealing with two pass assemblers, whereas in the
above, node was declared as a pointer type whereas POINTER WAS DEFINED AS NODE
TYPE and Node was defined AFTER this declaration. I still relate pointers to
assembly by thinking in terms of dynamic indirect addressing since your aren't
limited to a predefined data block rather you can access a data structure from
the memory pool.
---
* Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12)
From: Rich Myers
To: Charles Falconer Msg #165, 16-May-89 03:39pm
Subject: Splitting Overlays
>
> Two possible solutions: make it smaller by distributing as an
> LHARC self-unpacking archive (probably about 50%), or use the
> SLICE recently published in PC Mag. LHARC has no restrictions,
> SLICE may require clearance for commercial use.
>
> What kind of single program grows that big? curious.
>
The problem with those solutions is that the software will no longer run on a
two floppy system (#1 requirment). This program is a point of sales tool for
my companies agents in the field. It performs a larger number of comparisons
and calculations for them. An example would be calculating a prospective
clients paycheck, or the impact of an addtional TDA payment of $5 on their
retirement, taxes, and paycheck.
Rich
--- Operetta V0.5.3
* Origin: The Twilight Zone (713) 497-5778 (1:106/301)
*** This is a reply to #100.
From: Lee Bollard
To: Ken Wright Msg #166, 16-May-89 03:42pm
Subject: Re: Which Turbo Pascal book?
Thanks Ken, I did have version 2 of the Turbo tutor, but the text didn't
integrate with the programs on disk hardly at all. I wasn't really satisfied
with it. I suppose its been rewritten since then however. It's probably time
I gave it another look. -lb
---
* Origin: Sierra Son Electronics, Spokane, WA *HST* (Opus 1:346/2)
*** This is a reply to #141.
From: Carl Seiler
To: Joe Fischer Msg #167, 17-May-89 11:29am
Subject: Procedures
Remember those two procedures that you posted a while back asking
which ran faster? I tried them out and couldn't make the second one work on
5.0. The problem was the one that said "with Registers do" When I
compile it, it says that it needs a "(" Did you get anyone else to respond
to that question, and what is the problem that I'm having with it? I could
re-post the code if you don't remember which one I'm talking about, but I'm
not using my regular communications program right now so I don't know how to
post it.
-<Carl>-
--- Opus-CBCS 1.10.vi
* Origin: Tandy 2000 HST/DS (713)980-9671 Net 106 Archive (1:106/2000.0)
From: Chris Cavers
To: All Msg #168, 17-May-89 11:37am
Subject: file locking
I am thinking about using file locking for a door program that
John Klein and I wrote. Has anybody out there used any of the file locking
features of Dos (i.e. the share command and system functuin 5c hex code 00
hex)?
Chris
--- TAGMAIL v1.11.74 BETA
* Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0)
From: Chris Cavers
To: Doug Johnson Msg #169, 17-May-89 11:39am
Subject: use
Use a fossil driver to incorporate the modem routines into your Backgammon
door.
--- TAGMAIL v1.11.74 BETA
* Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0)
From: Chris Cavers
To: Brian Corll Msg #170, 17-May-89 11:53am
Subject: porting
What you can do to ease porting from one environment to another is
to put all the turbo specific routines into a module.
And put all the other code into the rest of the program.
What i mean about putting all the turbo spceific routines into a module
is tht the idea is that for any turbo specific routine you use,
you create a procedure that generically performs that function
for example consider the get date command
PROCEDURE get_date(VAR month,day,year : INTEGER);
BEGIN
whatever the turbo get date call is
END;
All the rest of your program sees is the get_date procedure that you have
written. Therefore, to port this function to another environment
all you have to change is the body of the get_date procedure
The idea if putting all the compiler specific library calls into a module
is useful in the sense that all you have to change to port your program
is that one module. Of couse this approach adds code to the exe file
but porting is made much easier.
--- TAGMAIL v1.11.74 BETA
* Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0)
From: Chris Cavers
To: Charles Falconer Msg #171, 17-May-89 12:00pm
Subject: minimal program
I think that the ( identifier_list ) is unnecessary
therefore, the minimal pascal program would be
PROGRAM a;
BEGIN
END.
--- TAGMAIL v1.11.74 BETA
* Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0)
From: Henry Bailey
To: Steve Brennan Msg #172, 17-May-89 10:00pm
Subject: Re: printer
to check printer:
{$I-} turn error checking off...
write (lst,'something');
{$I+} back on again
if ioresult = 0 then....... (if ioresult = 0, then printer is on...
--- QuickBBS v2.03
* Origin: The Hour Glass * SDNet/Works!(Tm) *HST* (1:300/12)
From: Steve Bremner
To: Michelle Wyner Msg #173, 18-May-89 01:50pm
Subject: Re: toolbox
I use the Turbo Editor toolbox and found it a whole lot easier than writing my
own editor for my programs!
---
* Origin: The Questor Project - (703) 525-4066 HST (Opus 1:109/130)
*** Part of a conversation.
From: Brian Corll
To: David Cressey Msg #174, 18-May-89 08:04pm
Subject: Re: PASCAL?????????
Right you are, David, I misspoke. Too many late nights at the keyboard.
--- ConfMail V3.31
* Origin: Ten B.C. Micro Systems (1:150/501.21)
*** Part of a conversation.
From: Brian Corll
To: David Cressey Msg #175, 18-May-89 10:12pm
Subject: Re: PASCAL?????????
BTW, thanks very much for taking the time to post those lengthy explanations.
Youse is a good guy.
--- ConfMail V3.31
* Origin: Ten B.C. Micro Systems (1:150/501.21)
*** This is a reply to #174.
From: Jim Colligan
To: Douglas Purdy Msg #176, 17-May-89 12:21pm
Subject: Errorlevels
> I was wondering if any one out there knew how to exit a program with an
> errorlevel so that a batch file can use it?? Thanks for any help any one
> can give me!!
Look up the Halt procedure. Essentially it takes a word variable/constant as
an argument and kicks that out as the errorlevel. Example...
......
halt(25);
......
will stop the program in its tracks and dump to DOS with an errorlevel of 25.
Talk atcha later...
--- FD 2.00
* Origin: Curmudgeon Point - Charleston, SC (1:372/1.1)
*** Part of a conversation.
From: Steven Cohen
To: All Msg #177, 16-May-89 05:28pm
Subject: julian date
does any one know where to get the julian date function in pascal?
--- QuickBBS v2.03
* Origin: The Philosopher's Stone, Orlando 407-299-3661 (1:363/23)
From: Jerry Labbe
To: All Msg #178, 17-May-89 07:33pm
Subject: T.V. TECHNICIAN
WANTED -- T.V. BENCH TECHNICIAN
-------------------------------
MINIMUM 10 YEARS EXPERIENCE.
EXPERT with N.A.P. - ZENITH - RCA & SONY
Recent FACTORY Seminars on above PERFERRED!
If you are a producer of quality work, YOU WILL FIT THIS SPOT!
CONTACT Jerry Labbe' at: (407)894-3456 or (407)898-8628
--- QuickBBS v2.03
* Origin: Trading Post (1:363/4)
From: Bob Stearns
To: Alton Prillaman Msg #179, 17-May-89 08:50pm
Subject: TTT
Sorry about that. I asked a very similar question a few months ago and was
told (and I believe it to be correct) that the flags are "additive" to the
basic no-flag case; so if you ask for directories, you get directories and
plain vanilla files. You have to filter the directories out your self, looking
at one of the status bits in the returned file description record.
--- msged 1.96S ZTC
* Origin: Bob's Office (1:370/16.3)
*** Part of a conversation.
From: J Meeks
To: Irene Governale Msg #180, 16-May-89 06:07pm
Subject: Re: String Similarity Check
Thanks, I'll upload it for you under the filename 'SIMIL.ARC' (if I haven't
done so; I'm on soooo many BBSes I forget things like this). Herb Martin
over on Blue Ridge Express is also helping, but THE MORE, THE MERRIER!
Hope you get some use out of it. Are you a Doctor Dobb's Journal
subscriber yourself? Just wondering. Later, and ROCK 'n' ROLL! J Meeks
--- QuickBBS v2.03
* Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160)
*** Part of a conversation.
From: J Meeks
To: Brian Corll Msg #181, 16-May-89 06:11pm
Subject: Re: String Similarity Check
Sure thing! It's called SIMIL.ARC. As I said to Irene Governale from
Pennsylvania, The More, The Merrier! The source will be on the Computers &
Communications BBS as an ARC file because I can't afford long distance;
otherwise I'
d gladly send everyone copies! Thanks, and if you can't swing the LD call
either, then I'll see if it can be chopped into message-length chunks;
doubt it, as there's a lot of assembler in even a small function! Number:
Computers & Communications, RIchmond, Va, 804-264-0035. Thanks again, and
remember to ROCK 'n' ROLL! J Meeks
--- QuickBBS v2.03
* Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160)
*** Part of a conversation.
From: J Meeks
To: Thomas Oatman Of 860/1 Msg #182, 16-May-89 06:14pm
Subject: Re: String Sim. Check
Thanks for your help; I'm sorry I can't send everyone who's replied a copy
personally, but my phone bill just won't handle it. But I will upload it
here to the Computers & COmmunications BBS in RIchmond, Va, at
804-264-0035. If you can't swing the LD call, I'll try chopping the source
into several messages and posting them; it'd be a lot of 'em, though!
Thanks for your help, and remember to ROCK 'n' ROLL! J Meeks
--- QuickBBS v2.03
* Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160)
From: J Meeks
To: Jim Forbes Msg #183, 16-May-89 06:16pm
Subject: Re: String similarity check
Actually, it's quite a lot of text, but I'm uploading it to the Computers &
Communications BBS in Richmond, Va, at 804-264-0035. Sorry I can't send it
to you personally at your host, but I've been flooded with replies. See my
latest net msg on this subject, as I'm really getting inundated. Thanks
for the offer of help, and remember to ROCK 'n' ROLL! J Meeks
--- QuickBBS v2.03
* Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160)
*** This is a reply to #181.
From: J Meeks
To: All Msg #184, 16-May-89 06:25pm
Subject: String similarity- thanks!
I have nearly been overwhelmed by all the response to the call for help on
a string similarity checking routine. I had intended just to upload the
assembler source code and a group of C routines as an ARC file here, but I
will try to break it up into message-sized chunks so I can send it via net
to everyone interested. It may prove to be too cumbersome, though, and
there are many support files you'll no doubt find useful, so the ARC may be
your best bet. It's called SIMIL.ARC, and I am uploading it here to the
Computers & Communications BBS in Richmond, Va, 804-264-0035.
I am sorry I can't upload the ARC individually to each of you, but my lack
of bucks pretty much precludes that! I do thank everyone for their
interest and willingness to help out -- I think that we can all have a
useful tool here when we're done (and, if you guys are anything like me,
maybe even a whole family of tools). I'll try to send the messaged form of
the assembler source within the next week or so if possible (I am pretty
busy these days at work); in the meantime, thanks again and remember to
ROCK 'n' ROLL! J Meeks
--- QuickBBS v2.03
* Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160)
From: Tracy Milburn
To: Greg Franklin Msg #185, 17-May-89 12:23pm
Subject: Re: KEYBOARD
Exactly... the questin of number systems IS irrelevatn; that is exactly
what I was telling Larry.
--later--
--Tracy--
--- TBBS v2.0
* Origin: Joe's Garage Sex, Unix and Rock-n-Roll (170/201)
*** This is a reply to #84.
From: Tracy Milburn
To: Jim Forbes Msg #186, 17-May-89 12:29pm
Subject: Re: POUND SIGN (#)
But what is "standard" by my definition is what is "standard" on all
computers. If you take a "standard" pascal program and move it to a
completely different system, chances are QUITE slim that it won't work. Take
turbo with predefined string variables and move it to a mac and see what
happens. I'm not trying to start an argument either, by the way.
"More to the point" is a matter of opinion. Personally, I like the logic
in programming - that's the ONLY thing I like about it; seeing how things work
and fall together. I guess I just like to do things right. L8r on
--Tracy--
--- TBBS v2.0
* Origin: Joe's Garage Sex, Unix and Rock-n-Roll (170/201)
*** This is a reply to #42.
From: Carl Frisk
To: Michelle Wyner Msg #187, 18-May-89 04:36am
Subject: Re: toolbox
Yes I've used (well still use) The Data Base Toolbox. Definately worth buying
so as not to reinventing the wheel.
--- QuickBBS v2.03
* Origin: LSO * Everett WA * 206/334-3088 (1:344/117)
*** Part of a conversation.
From: Mike Hinds
To: Greg Smith Msg #188, 17-May-89 12:25pm
Subject: Re: loop control varaibles
GS> > In fact I'd like to see BASIC banned from professional use.
GS> Any chance of writing a message like this to major developers? One
GS> particullarly messing field (ie: all programs useing basic) is the video
GS> software market! I have never seen a program in this market not
GS> written in basic.
I have, and it gets worse -- the video rental software my organization uses is
written in COBOL. Yes, it works, but boy is it FAT - must be made up of at
least a hundred various executables, seemingly EXECing each other at random...
--- msged 1.99S ZTC
* Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2)
*** Part of a conversation.
From: Mike Hinds
To: Greg Franklin Msg #189, 17-May-89 12:09pm
Subject: Re: How to turn of the cursor.
GF> If I wanted to produce a large program, a Toggle or OnOrOff type would
GF> be very useful, and I would declare it globally. Still, you're right
GF> to say that using a boolean func is easier. Maybe not as easy to
GF> understand first off....?
The trick I use currently is
CONST
On = True; Off = False;
and then my SetCursor routine, which accepts one Boolean parm, is called:
SetCursor(Off);
BarMenu;
SetCursor(On);
GetString(St);
--- msged 1.99S ZTC
* Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2)
*** This is a reply to #24.
From: Mike Hinds
To: Michelle Wyner Msg #190, 17-May-89 12:27pm
Subject: Toolboxes
MW> Does anyone use any of those TP Toolboxes (ie. Games, Graphics,
MW> Database, etc..) that you can buy extra? Are they worth getting?
I had ALL of them for TP3, but only upgraded the DataBase Toolbox for TP4. I
can't (yet) live without it - sometimes tricky to configure, but it gets the
job done much better than I can hope to. It works as advertised with TP5.
I would like (someday) the Editor Toolbox for TP4. I was able to get TP4 to
compile the TP3 version after a few "adjustments". Haven't messed with it for
over a year, however.
I have had no need for any of the other toolboxes. (4th-hand rumor: the
Graphix Toolbox doesn't even support BGI and CHR formats, and isn't much of an
upgrade - not very useful)
--- msged 1.99S ZTC
* Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2)
From: Kevin Lowey
To: Nathan Drost Msg #191, 17-May-89 04:42pm
Subject: Re: COMMUNICATION WITH PASCAL
ND> I was writing a door in tp, and everything was working fine
ND>except the remote user could not enter anything at the prompts.
ND> Do i need to use ReadPort(Comport,Ch);? (With Yasync). Also,
ND>i was writing it with no comm. routines, just using CTTY.
If you don't use the CRT unit, then your door should work fine with
CTTY. If you do use the CRT unit, then you should rewrite the program so it
doesn't use it. Otherwise it won't work as a door.
To make things simpler, I have available on my BBS a file called
KVL_ANSI.PAS that emulates MOST of the CRT functions using ANSI.SYS and DOS
calls. Just USE the unit instead of CRT and most programs won't know the
difference (although they will be MUCH slower). I intend to rewrite this
"properly" at a later date by making it a Text File device driver.
I accept OPUS file requests and allow first time downloads. I can run
2400 baud.
-- Kevin Lowey
---
* Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43)
*** Part of a conversation.
From: Kevin Lowey
To: Andy Lester Msg #192, 17-May-89 04:49pm
Subject: Re: FOR loop dangers
AL>As long as it lets me use global loop vars, I'm happy. I shouldn't
AL>have to allocate space on the stack when I don't want to.
I don't think that was the point. If you allow GLOBAL variables in
loops, it is very easy to use the same variable as a loop counter in two
separate subroutines. This is no problem unless the programmer forgets this
(or a new programmer has to modify the code). What might happen is the first
routine, while looping, might call a second routine that uses the SAME loop
counter. This would mess things up royally, either causing infinite loops or
making loops finish early.
There ARE reasons for these restrictions ...
-- Kevin Lowey
---
* Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43)
*** This is a reply to #89.
From: Dennis Smith
To: All Msg #193, 18-May-89 09:53pm
Subject: Information
I would like to know if anybody could recomend an easy to read book for
Turbo Pascal 4.0. I have the Borland book that came with the disks but it
isnt very clear in a lot of areas. I took a class for 3.0 and
am having a little difficulty understanding the comp. directives, uses
statments, and comm port applications. I would appreciate any suggestions
Dennis
--- QuickBBS v2.03
* Origin: -=> CyberNation <=- in Oklahoma City! (405)789-9108 (1:147/54)
From: Nolan Walker
To: David Bradley Msg #194, 19-May-89 12:56am
Subject: Pascal to other machines...
Is there another language "besides" C that is easier than C, and can port to
other machines easily. What is the best portable language that you know of?
Thanks
---
* Origin: >>>====> Bullseye OPUS {Stockton, CA} (Opus 1:161/31)
From: Nolan Walker
To: David Bradley Msg #195, 19-May-89 01:20am
Subject: pascal
what is this pascal called UCSD or something like that Pascal... is that what
Turbo Pascal is?
NW
---
* Origin: The Back Door Bbs, Stockton CA, (209)952-9430 (Opus 1:161/206)
*** Part of a conversation.
From: Nolan Walker
To: Allan Nelson Msg #196, 19-May-89 01:25am
Subject: Thanks!!!
Thanks for the vote of confidence Allan, it sure helps. I take it that you
read my message that I don't even know basic, and you think I will be able to
proceed with pascal without very many draw backs?
What is Turbo Pascals standard? Is it something called UCSD(?) pascal?
Since you know pascal, you said something about getting an the external
compiler... is there not one included in Turbo Pascals package already?
I know nothing about Turbo Pascal, if you can tell me anything ELSE i should
know before spending $$$, I would really appreciate it! How much will a good
pascal set up cost me?
My last question for now, is PASCAL easier than basic???
Thanks -- A lot!
---
* Origin: The Back Door Bbs, Stockton CA, (209)952-9430 (Opus 1:161/206)
From: Loyd Craft
To: Mark Farnan Msg #197, 17-May-89 09:03pm
Subject: Re: Address Needed
I never DID get your address.
I tried to send you a message after you file requested from my BBS, and it
went to the Zonegate, but I never found out if it got to you or not.
--- msged 1.97S ZTC
* Origin: /X\icroCosm - Owosso, Mi. 517-725-8077 (1:159/900)
*** This is a reply to #35.
From: Jason Duerstock
To: Mike Wanta Msg #198, 16-May-89 12:54pm
Subject: Re: Turbo Pascal
No, the odds are 1 in 6 because on 2 dice there are a total of 36 combinations
possible (6*6) and there are 6 possible pairs [1-1,2-2,3-3,4-4,5-5,6-6]...so
6/36 = 1/6...
--- FD 2.00
* Origin: (1:135/1)
From: Jason Duerstock
To: Ken Wright Msg #199, 16-May-89 04:25pm
Subject: Need Paging Routine
How about this:
uses printer;
const linecounter:byte=0; { to initialize it }
formfeedstring=#12;
procedure println(x:string);
begin
inc(linecounter);
if (linecounter>=66) or (pos(x,formfeedstring)<>0) then begin
linecounter:=0;
if pos(x,formfeedstring)=0 then writeln(lst,formfeedstring);
end;
writeln(lst,x);
end;
The only problems I can see here are whatever the string your printer uses to
do a form feed, and if you try to do a hard form feed...I've tried to
compensate but I haven't tested this myself...but it's the basic shell for you
what you need...oh and also you have to use println('Page #'+x) instead of
println('Page #',x) as you would with writeln, but otherwise you have complete
functionality..
--- FD 2.00
* Origin: (1:135/1)
*** This is a reply to #39.
From: Tomas Gradin Of 135/10
To: Jonathan Bradshaw Msg #200, 15-May-89 01:30am
Subject: HELP NEEDED WITH MODEM PORT STATUS
JB> I was wondering how I could read the modem stats from pascal, such as
JB> DSR, CD, etc. I have an internal modem and would like to create a TSR
JB> to display the modem stats on the screen, there are a few programs
JB> around but they don't do everything I would like.
Read a ± Z ¢k
*** This is a reply to #119.
From: Joerg Wirtgen
To: Peter Stewart Msg #201, 15-May-89 01:58pm
Subject: Re: Borland Editor
> > Here in germany you can buy an program who generates tp5-
> > compatible-character-fonts.
> I would be very grateful if you would post the name of the program and
where
> it can be ordered.
FontEdit PC, 99,- DM (ca. 60$ I think)
For posting you have to add 5,- DM. And you have to tell wheter to
receive 5.25 or 3.5 disks.
The address:
DMV-Verlag
DOS international
Postfach 250
3440 Eschwege
And I didn't try the program yet, but they always say that it is able
to produce these fonts.
Bis dann . . . Joerg
--- RohrpostixMail V3.9e
* Origin: Always look on the bright side of life (2:245/3)
*** This is a reply to #135.
From: Andreas Gleichmann
To: All Msg #202, 15-May-89 09:57pm
Subject: TP5 BUG ?
Hello User !
I have a litte problem with the graficfunktion IMAGESIZE.
The theoretikal result of IMAGESIZE(1,1,4,4) at CGA (320*200) must be 8
(4 byte picture + 4 byte adress). But the function result is 14.
The result at IMAGESIZE(1,1,5,4) is also 14 but theoretikal it must be 12
(8 byte picture + 4 byte adresse).
Also the formula in the discription for this function is wrong because the
result is not equal to the theory.
Is there a bug in this function ?
Have anybody problems like this, too ?
Gruss
Andreas.
--- QuickBBS v2.03
* Origin: Lion's Magic Box ** 6507 Ingelheim ** TEL. 06132 - 3257
(2:241/8)
From: Michael Codanti
To: Dale Winters Msg #203, 18-May-89 05:45pm
Subject: Re: dos access
> What I really want to do is execute a dos
> program from
> turbo 5. I know you have to state "uses crt,
> printer, DOS;"
> initially, but how do I execute a DOS external
> command?
Dale,
You use the EXEC procedure.
Example:
EXEC(Getenv('COMSPEC'),'/C PCPLUS');
When using this be sure to have memory($M) set to leave room to shell out.
Michael
--- D'Bridge 1.19α
* Origin: Bruin Hideout (1:105/402)
*** Part of a conversation.
From: Michael Codanti
To: Douglas Purdy Msg #204, 18-May-89 05:45pm
Subject: Re: Errorlevels
> I was wondering if any one out there knew how to exit a
> program with an errorlevel so that a batch file can use it??
> Thanks for any help any one can give me!!
You use HALT.
Example:
Halt(2);
To halt with an everlevel of 2.
Michael
--- D'Bridge 1.19α
* Origin: Bruin Hideout (1:105/402)
*** This is a reply to #176.
From: Bill Sawyer
To: Mike Wanta Msg #205, 18-May-89 08:18am
Subject: Re: Turbo Pacal
Wow, real wrong. Here's the scoop. The probability that your referring to
is only valid when applied to the beginning, let me explain. If I say to
you that I am going to roll a die 6 times, and its going to come up 6
everytime, the probability of that is (1/6)(1/6)(1/6)(1/6)(1/6)(1/6).
But let's say that I am only going to roll the die 1 time, the chance of a
6 is now 1/6. Question, does it matter that I have rolled the die 5
previous time, and they all have come up 6? No. That's because each test
(if you will) of the die is INDEPENDENT of the previous tests. The die is
still capable of rolling a 6 no matter how many 6's its rolled before.
That's what Ross was referring to I believe. Hope that explains it.
Adios
BS
--- QuickBBS v2.03
* Origin: The Philosopher's Stone, Orlando 407-299-3661 (1:363/23)
From: Greg Smith @ 902/10
To: Chris Browne Msg #206, 18-May-89 12:03pm
Subject: Re: Redirection
> Fantastic! May I FREQ you please?
Yes, I'll put the routines up as TPIODIR.ZIP and have the sysop make it
freqable. Node address should be on the bottom of this message.... The
code should be available by Sunday, May 21 - I've got to do a little
work on it to make it a "general" interface. However, I planned to do
it anyways....
Greg Smith - NYN
--- Mach-10 BBS v 2.00
# Origin: The Not-Yet-Named bbs Tucson, Az (602) 577-3650 (8:902/10)
* Origin: Network Gateway to RBBS-NET (RBBS-PC 1:10/8)
From: Dj Murdoch
To: Heikki Levanto Msg #207, 15-May-89 07:32am
Subject: Re: multiple conditions in If Then
HL> By all means write customisable procedures, but please try
HL> to make them as good as possible, allowing even for the
HL> 'unlikely' national characters.
The Turbo Professional library from Turbopower Software (P.O. Box 66747,
Scotts Valley, CA 95066, U.S.A.) provides case-changing routines that handle
the national characters, and much more. If people use it, then there won't be
a problem!
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
From: Dj Murdoch
To: Jesper Wolf Msg #208, 15-May-89 07:38am
Subject: Otherwise (was: constant expressions)
JW> Another thing they screwed up was the else part of a case
JW> statement. Here the standard is to use the Keyword
JW> Otherwise instead of the ambiguos else.
JW> But they wont change it since it would break to much code out there.
Why do you think the else is ambiguous? I've never been able to see the logic
behind this argument. On the other hand, keeping the number of keywords low
is a benefit to everyone - why introduce another one? Do you know the
reasoning used by the standard setters?
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
From: Dj Murdoch
To: S. Eric Asberry Msg #209, 16-May-89 12:05am
Subject: Re: Borland BGI Graphics
* Forwarded from 'ECPROG' area by Dj Murdoch on 1:221/162.1005 using Msg V3.2
SE> > ZS> Does anyone know anything about the Borland Graphic
SE> > ZS> Interface (BGI)? I'm interested in writing/getting a
SE> > ZS> driver that will take advantage of the 16 color display
SE> >
SE> > ZS> mode on Tandy 1000 and PC-jr computers.
SE> >
SE> > I saw a partial one today on Usenet. I saved a copy, but
SE>
SE> PLEEEEEASE post it or make it available on your bossnode's
SE> board if he supports file requests. I would LOVE to get
SE> my hands on a copy of that!
I don't think my boss supports file requests, but I'll ask around and see if I
can find someone locally who does. The full listing is 50K, so I can't just
post it here. Anyone who can't wait, should send a diskette and mailer to me
at
D.J. Murdoch
Dept. of Statistics & Act. Sci.
U. of Waterloo
Waterloo, Ontario, Canada
N2L 3G1
Please include either enough Canadian stamps for return postage, or a dollar
(of _any_ nationality).
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
*** There is a reply. See #211.
From: Dj Murdoch
To: Charles Falconer Msg #210, 16-May-89 06:22pm
Subject: Re: else/otherwise (was Constant expressions)
CF> A practical solution would be to accept either in a new
CF> release. PascalP uses otherwise (not else), and doesn't
CF> even make it a reserved word (to conform with the
CF> standard). If otherwise is found when a case label is
CF> expected, it is accepted. Then the standard flag is
CF> checked, and if set a warning issued. Now go ahead and
CF> compile the exception statements. This is feasible
CF> because otherwise is never used in any other context, and
CF> thus use as an identifier still remains possible.
Does this compile? Does the compiler look ahead to see if a colon is coming?
const
otherwise = 2;
var
i : integer;
begin
i := 3;
case i of
1: writeln('one');
otherwise: writeln('two');
otherwise writeln('other');
end;
end.
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
From: Dj Murdoch
To: Dj Murdoch Msg #211, 17-May-89 05:11pm
Subject: Re: Borland BGI Graphics
SE> > ZS> Does anyone know anything about the Borland Graphic
SE> > ZS> Interface (BGI)? I'm interested in writing/getting a
SE> > ZS> driver that will take advantage of the 16 color display
SE> >
SE> > ZS> mode on Tandy 1000 and PC-jr computers.
SE> >
SE> > I saw a partial one today on Usenet. I saved a copy, but
SE>
SE> PLEEEEEASE post it or make it available on your bossnode's
SE> board if he supports file requests. I would LOVE to get
SE> my hands on a copy of that!
Geoffrey Welsh, sysop of Izot's Swamp (1:221/171, 519-742-8939, HST 9600 baud)
has kindly agreed to make the file available. It's called BGIEXMPL.ARC, and
is available to first time callers from his Area 1, or by Freq.
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
*** This is a reply to #209.
From: Dj Murdoch
To: Ross Wentworth Msg #212, 18-May-89 10:20pm
Subject: BGI file format on CIS?
Earlier today (the 18th), I saw your (?) message about Borland saying the BGI
format would be released on Compuserve on the 15th. I accidentally killed the
message, so I hope I'm talking to the right person.
I just took a look in the TP5 and TC2 areas, and didn't see any sign of it
:-(. I've left a message to the sysops, and will get a copy if it shows up.
--- Msg V3.2
* Origin: Murdoch's_Point - - (1:221/162.1005)
From: Hs Yeoh
To: Steve Hodges Msg #213, 17-May-89 01:58pm
Subject: Re: Printer Status
Hi,
I suggest you refer to a Printer_BIOS function in this book -Turbo Pascal
Library by Douglas S. Stivison. ( on page 119).
Due to copyright reasons I cannot list the whole function here. But I think it
will satisfy your requirements. This function accesses the IBM PC BIOS
interrupt 17 hex to either reset the printer or to obtain its status. It can
test for the six different printer conditions, which are
Bit 7 : Not Busy := status AND 128 > 0
Bit 6 : Acknowledge := status AND 64 > 0
Bit 5 : OutofPaper := status AND 32 > 0
Bit 4 : Selected := status AND 16 > 0
Bit 3 : IOError := status AND 8 > 0
Bit 0 : TimeOut := status AND 1 > 0
Bye.
---
* Origin: Wizboard - Malaysia - (+60)-03-(274-1213)/(274-7579) (Opus 3:609/3)
*** Part of a conversation.
From: Hs Yeoh
To: All Msg #214, 18-May-89 09:37pm
Subject: I/O Redirection in Turbo Pascal
Can anyone help me with this? I'm trying to redirect all my input and output
( for an on-line database program that I writing) to one of ny comm ports.
I've thought of a possible method but I'm not sure if it will work. My idea is
to use the EXEC procedure in TP and execute the folllowing MS-DOS program i.e.
MODE COM1:1200,N,8,1,P and then
MODE LPT1:=COM1
According to my MS-DOS handbook, this should redirect all I/O through the COM1
port. My question is this? Could I just add LST to every write, write, read
and readln in my program to achieve my objective above?
Much appreciate any help on this.
Bye.
---
* Origin: Wizboard - Malaysia - (+60)-03-(274-1213)/(274-7579) (Opus 3:609/3)
From: Lin Qinglin
To: All Msg #215, 14-May-89 05:58pm
Subject: interface ][ bbs
_[ [[ [ [__[ [___ [__[ [___\\\ [__ \\\ \\ \\
[ [ [ [ [ [\ [\\[ [_ [\[ [ [\ [ [
\[ [ _[ [ [\\ [ [ [ [ [ ___ [\\\ __ __
Telephone: (065)-293-5455
SysOp: Lone Wolf
BDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD?
3 A Brand New Bulletin Board System for EveryOne ... 3
3 3
3 20 DoorWays + 1 Fossil GateWay (PCBoard/Ext.) 3
3 8 Conference with Bulletins and Files DIR. 3
3 Total of more than 100 Bulletins and Files 3
3 in main board. All operates at PCBoard 12.1/E 3
3 3
3 Now taking in 200 users in 1 week Beta-Test Hours 3
3 from NOW to 10th June 1989. Close after that. 3
3 Operating time: 2100 - 1600 3
@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY
--- ConfMail V3.2
* Origin: THE SINGAPORE LINK-Republic of Singapore 9600-HST (3:600/1)
From: Tony Hsieh
To: Julian Colt Msg #216, 19-May-89 03:28pm
Subject: Re: Exec
-> -> Hmmmm....well, at any rate, I WANT IT. NOW!
-> -> How can I go about testing it? It might be good to
-> -> have a test site here anyway.
Call my board at 1-415-472-5632 for more info.
--- EBBS v0.0A
* Origin: EBBS Support/Test Site 415-472-5632 (1:161/999)
*** There is a reply. See #242.
From: Jonathan Bradshaw
To: Charles Cremer Msg #217, 16-May-89 03:54pm
Subject: Re: OBTAINING MODEM PORT STATUS
Thanks, I appreciate the info.
- Jonathan Bradshaw
--- TBBS v2.1/NM
* Origin: RCN 530MB 4-Line *Multi-Line* S.Bend,IN (219)237-0651 (227/2)
From: Patrick Drouin
To: Charlie Deck Msg #218, 17-May-89 09:57am
Subject: PASCAL
Hi Charlie!
-> Oooo.. sounds nice. I uselly program in basic but I would be
-> happy to learn Pascal. I have programs made from Pascal but
-> they're
Ya me too! If I here anything from that Pascal_Lessons Echo I'll let you know
about it!
Bye!
Patrick
--- TMail v1.10
* Origin: [SQUARE-HEADs] MultiLine : TBBS/SEAdog : QuebecCity Canada
(1:240/1)
*** Part of a conversation.
From: Paul Lahaie
To: Hs Yeoh Msg #219, 18-May-89 07:30am
Subject: Re: Doors Program in Turbo Pascal
> are to screen and inputs from keyboard, these I have to
> redirect to one of my comm ports. Could I just change all
> my write('xxxxxx') to write(com1,'xxxxxxx') and read(yyy)
> to read(com1,yyy)?
I've seen in this months (or last's) PC World that a little Pascal
code was written to Reassign Input/Ouput
Procedure Redirect(filename: String[12]);
Begin
Assign(Ouput,Filename);
Rewrite(Output);
Assign(Input,Filename);
Reset(Input);
end;
This SHOULD work... I've used it in my program in testing (only with CON).
I think you need to include CRT in there somewhere. If you get lot's on
errors you can Substitute Read(<var name>) by Read(Input,<var name>).
-Paul
---
* Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207)
*** This is a reply to #71.
From: Peter Henry
To: All Programmers Msg #220, 18-May-89 10:34pm
Subject: Ashton-Tate
Say listen, anyone out there who make small utilities, I hear that Ashton-Tate
is looking for you, as well as people who write manuals for software, if you
are interested and if you believe me, leave me a message and I will tell you
where I got my information, it isn't any secret but I don't want to waste
anyone's time or the space in this message area.
---
* Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207)
From: Andy Lester
To: Lee Hamel Msg #221, 18-May-89 05:18pm
Subject: scan codes for F11 and F12
> Could someone please tell me the scan codes for F11, Alt-F11, Ctrl-
> F11, F12, Alt-F12, and Ctrl-F12? I have one of those old kbd's, and
> only have up to F10 ... thanks.
RTFM. Page 582 of my Turbo 4.0 manual lists all the extended keycodes.
Andy
--- FD 2.00
* Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)
*** This is a reply to #87.
From: Andy Lester
To: Charles Falconer Msg #222, 18-May-89 05:24pm
Subject: Re: Constant expressions
> >This is exactly the reason. The typed constants are just predefined
> >variables.
>
> Since they are Non-standard, but useful, I suggest organizing as
> follows:
>
> CONST
> ....
> TYPE
> ....
> CONST (* actually initialized vars *)
> ....
> VAR
> ....
Good idea. Most other compilers should barf on the CONST being declared after
the TYPE, too.
It really is a hideous practice that we, as programmers, exploit a bug in the
compiler like this, though.
Andy
--- FD 2.00
* Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)
From: Brian Hird
To: All Msg #223, 18-May-89 12:13pm
Subject: not much
We couldn't think of anything much to write about (me & Matthew Webster)
except that y'all should be using this echo ... ! Just a thought ... Why is
pascal so much more widely used than m2? (ok, we know the answer to that one)
- but does it deserve to be so? Does anyone have a copy of the Dhrystone or
Whetstone pascal source code?
--- FD 2.00
* Origin: ABSOLUTE ZER0 BBS -- V21/23/22/bis on + 44 1-741-7233 (2:254/18.2)
From: Brian Dunworth
To: Betsey Doane Msg #224, 19-May-89 04:35pm
Subject: Pascal Pretty Printers
> I read about Beautif4.ARC. How might I get it? That would
> be nice.--Betsey Doane--I'm new to this Echo.
Hi, Betsey, and welcome to the echo!
You may FREQ 'BEAUTIF4.ZIP' from 267/54 at HST speeds.
Brian
--- TPBEdit v3.2
* Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54)
*** This is a reply to #108.
From: Chris Jantzen
To: Chris Browne Msg #225, 19-May-89 02:20pm
Subject: LZH
What is a LZH file anyways??? :-)
Chris =->
--- ConfMail V4.00
* Origin: + T.M.E. + Coos Bay, OR 503/269-1935 (1:152/18) + (8:7700/0)
From: Joe Fischer
To: Bill Sawyer Msg #226, 19-May-89 11:30am
Subject: Re: Windows (again)
I hear my ears ringing, Bill,
(* See note below.....HELP!!!!!!!!!!!!!! HELP!!!!!!!!!!!! *)
VAR MSG,MOVE :STRING[15];
N :Integer;
Procedure HELP; Begin (* SHOW HELP SCREEN *) End;
Procedure CALL_EP; Begin (* MAKE En` Passant MOVE *) End;
Procedure SQK; Begin SOUND(5000); DELAY(40); NOSOUND; End;
Procedure NG;
Begin
GotoXY(72,20); Write(' ');
GotoXY(60,22); Write('INVALID MOVE'); DELAY(800);
GotoXY(60,16); Write(MSG);
End;
(*-------- Please tell me how to get rid of the GOTOs ---------*)
Procedure GET_MOVE; (* Allow exit only if MOVE = proper format *)
LABEL SKIP,TOP; (* EXAMPLES = D2 D4 E2 E4 A1 H1 H8 H1 *)
Begin
TOP:
GotoXY(60,22); Write(' ');
GotoXY(60,20); Write(' ');
GotoXY(60,20); Write('ENTER MOVE :'); Move:= '';
READLN(MOVE);
If MOVE = 'HELP' then Begin HELP; N:= 0; MOVE:= ''; GOTO TOP; End;
If MOVE = 'QUIT' then Begin N:= 3; GOTO SKIP; End;
If LENGTH(MOVE) <=4 then Begin (* MOVE must be length[5] *)
MSG:= ' TOO FEW CHARS'; SQK; NG; GOTO TOP; End;
If LENGTH(MOVE) > 5 then Begin (* String[5] will not work?? *)
MSG:= 'INPUT TOO LONG '; SQK; NG; GOTO TOP; End;
If Copy(MOVE,1,2) = 'EP' then Begin CALL_EP; GOTO SKIP; End;
If Copy(MOVE,3,1) > '@' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,1,1) < 'A' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,1,1) > 'H' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,4,1) < 'A' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,4,1) > 'H' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,2,1) < '1' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,2,1) > '8' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,5,1) < '1' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,5,1) > '8' then Begin SQK; NG; GOTO TOP; End;
If Copy(MOVE,1,1) = Copy(MOVE,4,1) then
If Copy(MOVE,2,1) = Copy(MOVE,5,1) then Begin
(* You can't move to same square *) SQK; NG; GOTO TOP; End;
SKIP:
End;
(*------------ Please tell me how to get rid of the GOTOs ----------*)
Begin
ClrScr; Msg:= ''; N:= 0; Repeat GET_MOVE; WriteLN(MOVE); Until N = 3;
End. NOTE ODDITY: TO CHECK STRLEN > 5 STRLEN CANNOT BE 5....
Okay, I admit I'm a low level, ex-Basic programmer. I wrote a
Two Player Chess Board Game that checks inputs but does not move or
check for Check or Checkmate. It runs good, but all those GOTOs!!!!!
I've tried everything I know, but I can't make it more modular,
I can't get rid of the GOTOs, and I can't figure out what comments
are needed to make it more readable. { No one will see it anyway. }
This is just a fragment of the program that restricts the move
input to A1-8 thru H1-8. If no one can help me, it's OK, because I
can't get anybody to come over and play chess any way.
Does anybody have a code stretcher, this seems
a little cramped?
I also am not able to build a library, since I have
never found a procedure I can use in another program.
Any help will be appreciated,
Joe
--- QuickBBS v2.03
* Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15)
*** This is a reply to #115.
From: Joe Fischer
To: Dale Winters Msg #227, 19-May-89 11:36am
Subject: Re: dos access
Sorry to butt in, but the term "DOS external command" always
confused me. It merely means one of the .COM or .EXE files
that comes on the DOS Disk. Why didn't they just call it
"included utility" or something I could understand?
Joe
--- QuickBBS v2.03
* Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15)
*** This is a reply to #203.
From: Joe Fischer
To: Greg Sherman Msg #228, 19-May-89 12:15pm
Subject: Re: Three Things
Hi Greg: I hope you don't mean use MEM[] on the stack. I get
hollered at for using GOTO.
I wonder if you have ever used a multiple condition switch
(like Boolean True-False) typed integer with conditions 0,1,2,3,4,
etc. Just one little If Then ....GOTO Skip: will
get you right to the end of that procedure and any other procedures
can check the switch, and skip if the condition is
Logoff, and then the main program can check the condition and
exit gracefully.
Maybe a good programmer will tell you a better way, but I
doubt if any one will consider mem'n the stack. The code
to keep track of the stack pointer location would be unwritable.
A multiple condition switch needs to be initialized at the
beginning of the main program and needs to be a global variable.
Hey, together, we can probably think of a lot of ways to
learn bad programming practices (that work great).
--- QuickBBS v2.03
* Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15)
*** This is a reply to #52.
From: Jens Stobernack
To: Jody Shapiro Msg #229, 17-May-89 07:47pm
Subject: Re: COMMUNICATION WITH PASCAL
Yup, I finished. Unforunately with MAJOR bugs, so I have decided
to keep my rountines to myself so that I don't get everyone else screwed up in
my faults.
But I can recommend you get a copy of 'PibTerm'. It was writen in
TP3 and has all the functions for Modem I/O. Or if you cann't get that then
Get your hands on a good Fossil Driver. (X00.sys is what I recommend). It
comes with docs and a chart of all the posible things you can do with it.
In the chart there is a code secttion. The number in that is assigned
to the 'Regsiter.AH' and then the rest is given. Then use the command
'INTR($14,<Registers>)'.
Know does that make sence??
I didn't think so... well if anyone around can understand this message
then they'll explain it..
TTYL
--- ConfMail V3.31
* Origin: EZ Duzzit BBS Calgary (1:134/20)
*** This is a reply to #191.
From: Allen Guest
To: All Msg #231, 17-May-89 09:57pm
Subject: Heap Management
OK Problem #
1) Whenever I use Multiple GetMem, Freemem statements, I eventually run out of
heap space. I am always careful to FreeMem the EXACT amount of GetMem heap
area that I assigned. I release the memory as soon as I don't need it. Yet I
still get heap overflow errors. Somehow my heap pointer is not be reset to
the previously cleared up free area. How can I do this manually without using
Mark & Release? Also while using the heap, My Graphic fonts (.CHR) get
destroyed (overwritten) during this same program. Doesn't turbo reserve heap
space for the
.CHR & .BGI files when it loads then into the heap? So why does it
get overwritten by heap usage?
2) I know turbo's heap management routines are not re-entrant. Dos is also
not re-entrant. You can bypass the Dos limitation by checking if it's busy.
(Active byte value, found at - ES:BX when calling Int
$34). So how do you get around the Memory Management re-entrant problem?
Does Pascal use the Dos interrupt functions $48-$4a & $58 to do it's
memory management? If it does, then I can just check if DOS is active.
If it doesn't - how do I check if Pascal is busy reserving or releasing
memory?
-Thanks - Allen Guest
--- ConfMail V3.31
* Origin: EZ Duzzit BBS Calgary (1:134/20)
From: Paul West
To: Charles Falconer Msg #232, 19-May-89 12:43am
Subject: Re: loop control varaibles
In a message of <14 May 89 09:22:08>, Charles Falconer (1:141/209.1) writes:
>>Worked on a G/L package for a Honeywell 115 in 1976. It was written in
>>COBOL-68 using ALTERable GOTO's!!!
>
>even the COBOL shops don't allow this today.
When I was in College (ancient History) The Cobol Classes were the only
classes they taught where the GOTO was not allowed. Of cource when you
consider that the only languages taught were BASIC, FORTRAN, RPG-II and COBOL,
I suppose you can understand why!
If I remember correctly, a GOTO was an automatic 0 on the program, and a ALTER
ment you failed the class.
--- msged 1.99S ZTC
* Origin: P.I.E. [Everett, Wa] -=> HST <=- (1:343/27) - (1:343/400)
*** This is a reply to #188.
From: Paul West
To: Charles Falconer Msg #233, 19-May-89 12:53am
Subject: Re: Novice requesting help
In a message of <15 May 89 09:37:18>, Charles Falconer (1:141/209.1) writes:
>Don't know if it's still in print, but 'Programming in Pascal' by Peter
>Grogono is one of the best mixes of introduction and usable facts.
Funny you should mention that book. It was given to me by one of my college
programing teachers. The college didn't teach Pascal at that time and he
told me that this was a good book to read to learn it.
If you want to try to find a copy here are the needed facts
Programming In Pascal by Peter Grogono
Copyright 1980 Addison-Wesly Publishing Co. INC.
ISBN 0-201-02775-5
--- msged 1.99S ZTC
* Origin: P.I.E. [Everett, Wa] -=> HST <=- (1:343/27) - (1:343/400)
*** Part of a conversation.
From: Kevin Lowey
To: George Butts Msg #234, 18-May-89 04:10pm
Subject: Re: TTT
GB> A suggestion is to use '*.' as a mask to
GB>eliminate a lot of other files. This, in itself, doesn't insure
GB> success since you can have files without extensions. It may,
GB>in the interim, save some headaches.
This also is not a good idea because directories CAN have extensions.
For example, on my BBS, I end all the directories for my echomail areas
(like PASCAL) with .ECH. For example, the directory containing pascal
messages is PASCAL.ECH.
How about you read the file in with *.*, then look at the file
attributes (in SEARCHREC I think) and see if it is a directory.
-- Kevin Lowey (LOWEY@SASK.USASK.CA) (...!dvinci!lowey)
---
* Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43)
*** This is a reply to #179.
From: Dan Mcclellan
To: Nolan Walker Msg #235, 19-May-89 06:58pm
Subject: re: pascal
UCSD Pascal ---> Univ. of California San Diega Pascal
a superset of ANSI Pascal.
Turbo Pascal, from Borland International, is also a superset of
ANSI Pascal, the main difference is Turbo Pascal is directly aimed
at microcomputer systems, MSDOS and ProDOS (Apple MacIntoshes)...
I would recommend Pascal as a learning language over BASIC because
that is what Pascal was designed as and is a good introduction to
structured programming. Turbo Pascal is accepted worldwide as the
absolute best microcomputer implementation of Pascal.
Choose Your Weapon.
Dan McClellan
--- Fido v12
* Origin: Fort Knox Fido - Binkley/Fido/HST (405)843-3545 (1:147/49.0)
*** This is a reply to #218.
From: David Edwards
To: Steve Hodges (bombay Duck Msg #236, 19-May-89 12:13pm
Subject: printer status
>Does anyone have a piece of code which returns the status of LPT1
>on a PC? I need to know if the printer is on/off line, error,
>paper out etc.
If you're working with Turbo Pascal 5.0, you can use this. You
can fix it up as you wish.
uses DOS;
procedure ReadPrinterStatus(lptx:byte);
{lptx is the number of the printer to check:
1 for LPT1, 2 for LPT2, 3 for LPT3}
var regs : registers;
begin
{see IBM Hardware Tech. Ref. System BIOS Listing}
{set up registers for INT 17 ; PRINTER_IO }
regs.dx:=lptx-1; { 0 to check LPT1, 1 for LPT2, 2 for LPT3 }
regs.ax:=$0200; { function ah=2: read printer status into AH }
intr($17,regs);
{interpret bits returned in AH }
writeln('The following bits are set: ');
if (regs.ah and $01)<>0 then writeln('time out');
if (regs.ah and $08)<>0 then writeln('I/O error');
if (regs.ah and $10)<>0 then writeln('selected');
if (regs.ah and $20)<>0 then writeln('out of paper');
if (regs.ah and $40)<>0 then writeln('acknowledge');
if (regs.ah and $80)<>0 then writeln('not busy');
end; { of ReadPrinterStatus }
begin
ReadPrinterStatus(1);
end.
--- QuickBBS v2.03
* Origin: -=< Athens FORUM Georgia >=< 404-546-7857 >=- (1:370/5)
*** This is a reply to #213.
From: David Edwards
To: Ken Kubos At 1:161/11 Msg #237, 20-May-89 01:08am
Subject: Heap Overflow
The statement "new(counts)" allocates space for an array [1..300]
of real. The statement "for v:=1 to 300 do new(counts);" tries
to allocate space for 300 x 300 (9000) reals. To do what I think
you want, you need only:
var map : ^array[1..100,1..60,1..2] of real;
counts : ^array[1..MaxVials] of real;
.
.
begin
new(map); {allocate space an array [1..100,1..60,1..2] of real}
new(counts); {allocate space for 300 reals}
end;
Keep us posted!
--- ConfMail V3.31
* Origin: Athens IBM PC Users Group (1:370/16)
*** This is a reply to #111.
From: Bob Stearns
To: Mike Osier Msg #238, 20-May-89 12:42am
Subject: powers
Depends on what number to what power. If the power is a non-negative integer,
the following routine (which ignores over/underflows) will do:
function xtoi(x:real;i:integer):real;
var z:real;
begin
z:=1.0;
while(i>0) do begin
if (i & 1)=1 then z:=z*x;
i := i shr 1;
if i>0 then x := x*x;
end;
xtoi := z;
end;
If the power is a real, then use the mathematical identity:
x^y = exp(y*log(x))
Handle negative exponents by using the absolute value of the exponent, doing
the operation and taking the reciprocal of the result.
--- msged 1.96S ZTC
* Origin: Bob's Office (1:370/16.3)
*** This is a reply to #106.
From: Larry Sanders
To: Jens Stobernack Msg #239, 20-May-89 01:54am
Subject: Re: Error Message
-> Can anyone tell me what to do to fix a:
->
-> Error 48: Code segment to large.
->
-> Error???
I had that problem once, I don't know if you have the same CAUSE as I did,
but my problem was simple to fix once someone told me that string variables
with undefined length default to a length of 255. I just went back and
defined some string lengths and cured the problem.
I hope your problem is as simple.
--- QuickBBS v2.03
* Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403)
*** This is a reply to #230.
From: Allan Nelson
To: Michelle Wyner Msg #240, 18-May-89 09:36pm
Subject: Re: toolbox
They all have their points. But they are only available as far as version 4.
If you want to use them with Turbo 5 you will have to recompile the source
code. There's some interesting stuff in there.
Allan
---
* Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12)
*** This is a reply to #187.
From: Riley Carrier
To: Peter Vdlanden Msg #241, 18-May-89 11:46am
Subject: Re: RE: TP 5.0 and Smart Linking
Peter,
I have recently purchased the RTL from Borland and have found what you
state to be correct. I have since created several new .tpu files for specific
applications which must use a minimum amount of memory. Thanks for the
information.
Riley Carrier
--- QuickBBS v2.03
* Origin: C&M Research Group's BBS - (512)826-0659 (1:387/1)
From: Julian Colt
To: Tony Hsieh Msg #242, 20-May-89 12:37pm
Subject: Re: Exec
Well, I'll see what I can do. You know, all the way on the other side of the
country is a VERY long distance call. But just in case I all the sudden feel
like making a $10,000 call, I wrote it down.
...j
--- QuickBBS v2.03
* Origin: Summer=Storms.. are you backed up? MidiThru BBS (1:109/410)
*** This is a reply to #216.
From: Bob Baker
To: All Msg #243, 19-May-89 10:54pm
Subject: 80 x 43 in EGA
I've been programming with TP since she first hit the stands with
3.01, and I need a little help. Is there anyone out there that knows of a way
to get the EGA monitor to run 43 lines in 43-line mode? I can get the 8x8
font loaded, but it will only work for 25 lines, unless I run the program
again immediately, in which case it will THEN switch to 43-line mode. Anybody
out there can help????
Bob
--- QM v1.00
* Origin: * T P C * A Techie's Dream {HST} (615)356-0453 (1:116/4000.0)
From: Michael Codanti
To: Andy Lester Msg #244, 18-May-89 09:26pm
Subject: Re: echo
> Can anybody who's done work with OOP come up with a
> real-world application that uses OOP? The examples that
> they give are useless, like having a "draw shape" part of a
> circle data structure. I wanna see real code that uses it,
> preferably in a business-type application.
Yeah I would like it if someone could try to explain exactly what Object
Orinted Programming is!
Michael
--- D'Bridge 1.19α
* Origin: Bruin Hideout (1:105/402)
*** This is a reply to #103.
From: Douglas Purdy
To: Jim Colligan Msg #245, 19-May-89 02:01pm
Subject: Thanks
Thanks for telling me that I was looking in all sorts of manuals for the
way to exit with an error level. Thanks once again.
--- Lynx v1.30
* Origin: EastSide Data Services - The New 105/61!
*** There is a reply. See #246.
From: Douglas Purdy
To: Michael Codanti Msg #246, 19-May-89 02:03pm
Subject: Thanks
Thank for the help I realy appreciate your help.
--- Lynx v1.30
* Origin: EastSide Data Services - The New 105/61!
*** This is a reply to #245.
From: Chris Graham
To: Nolan Walker Msg #247, 18-May-89 04:42pm
Subject: Re: Novice requesting help
A lot to answer...
TURBO Pascal, by Borland of course (don't even mention Microsoft
to me when speaking of programming), will tell you what the error is, where it
is, and put you there. Starting from version 4 and going into 5 there is a
built-in Help feature, which is very good. You can get help on nearly
anything, by topic or by pressing CTRL-F1 when on the word you want to look
for. You can, for example, get a quick run-down on any command's parameters
by doing this. Version 5 is even better, allowing you to get help on the
actual syntax of setting out programs, such as variable definitions and
procedures.
Also, the TURBO editor is very good with block and search-and-replace
commands. I suggest you set these yourself using the installation program, as
the factory-set ones are of the old WordStar variety.
For a book, I would again suggest something by Borland-Osborne.
The only books I have read of theirs, though, are not what you would
call beginner.
And yes, I would recommend Pascal as a first [computer] language!
It, I think, would be easier to go directly there than from BASIC
to there. If you have a reasonable amount of patience, and can remember a few
basic (not BASIC!) things, you should be up and running soon...
Chris Graham
---
* Origin: PCalgary (Opus 0:134/11)
*** This is a reply to #233.
From: Chris Graham
To: Greg Franklin Msg #248, 18-May-89 04:51pm
Subject: Re: PLAY procedure (was: PASCAL ECHO)
I didn't do any fancy reprogramming of interrupts, or anything
such as that, I just used Sound and NoSound in the procedures. I couldn't
detect any appreciable delays from the speaker. What DELAY are you using to
signify a note is a 64th? I can't remember mine offhand, but I will look it
up later.
Chris Graham
---
* Origin: PCalgary (Opus 0:134/11)
*** This is a reply to #21.
From: Jens Stobernack
To: Wayne Boyd Msg #249, 19-May-89 05:57pm
Subject: Carrier Program..
Wayne.. Yes one fault in the 'Carrier' procedure.
Before the statement 'Intr($14,Regs)' put 'Regs.ah := $03' that should
fix it all up.
The Variable 'comport' should be COM1 = 1, COM2 = 2, etc...
If the Variable 'comport' is equal to 0 then the function is by passed
by the fossil driver.
TTYL
P.S. Can you tell me what the Base Address and the Irq are for Com5
thru Com8.
--- ConfMail V3.31
* Origin: EZ Duzzit BBS Calgary (1:134/20)
From: Jens Stobernack
To: All Msg #250, 19-May-89 06:12pm
Subject: Com5 - Com8
Can anyone out there tell me what the Base Address and the Irq are
for Com5 - Com8.
Thanks..
--- ConfMail V3.31
* Origin: EZ Duzzit BBS Calgary (1:134/20)
From: Chang Lee
To: All Msg #251, 19-May-89 01:23pm
Subject: ASCII Memory Location
HELP !
Does Any of you Programmers out there know :
- at what address in memory the upper 128 ASCII are stored
for MONO/CGA/EGA/VGA ??
I'm trying to make my own set of ASCII & I need to know where
they're stored so I can store them somewhere else and move a new
set to that address !
If you can help please drop a line , Your help is greatly appreciated
Thanks
C. Lee
--- Opus-CBCS 1.10.vi
* Origin: Now and Zen Opus HST (916) 962-1952 (1:203/34.0)
[251] Highest: 251
ECHO area 45 ... Pascal language echo
Type `?' by itself for help
A)rea change N)ext (read msg)